perm filename XGPMSS.F4[DRW,LCS] blob sn#065185 filedate 1974-12-13 generic text, type T, neo UTF8
00100		DIMENSION L(1),I(4000)
00200		TYPE 1
00300		ACCEPT 2,NM
00400		CALL IFILE(1,NM)
00500		READ(1),J,(I(K),K=1,J+2)
00550		L(1)=L(3)+2
00600		CALL SAVB(L)
00700	1	FORMAT(' TYPE FILE NAME ',$)
00800	2	FORMAT(A5)
00900		END